home *** CD-ROM | disk | FTP | other *** search
/ Ahoy 1988 October / Ahoy_Magazine_88-10_1988_Double_L.d64 / Flashing Scroll (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  479b  |  12 lines
  1. 5 print chr$(14)
  2. 10 poke53280,14:poke53281,14:printchr$(31)chr$(147):h=53270:b$=chr$(19)
  3. 20 a$(.)=" *********** [212]ips [193]hoy! ******************* "
  4. 30 a$(1)="[194][193][211][201][195] [198]lashing [211]croll [210]outine. [194]y [206]ick "
  5. 40 a$(2)="[202]ankovic ([203][205][212]). [210]efer to [193]hoy! magazine"
  6. 50 a$(3)=" [207]ctober 1988 for instructions.        "
  7. 60 fora=.to3:forb=1to40:forc=7to.step-1
  8. 70 poke53265,peek(53265)or16:pokeh,c:next
  9. 80 poke53265,peek(53265)and239:printb$;mid$(a$(a),b,40-b);mid$(a$(a+1),1,b)
  10. 90 gete$:ife$<>""thenpoke53265peek(53265)or16:pokeh,8:printchr$(147):end
  11. 100 next:next:poke53265,peek(53265)or16:run
  12.